home *** CD-ROM | disk | FTP | other *** search
/ Aminet 48 / Aminet 48 (2002)(GTI - Schatztruhe)[!][Apr 2002].iso / Aminet / text / edit / vim60rt.lha / Vim / vim60 / syntax / plm.vim < prev    next >
Encoding:
Text File  |  2001-07-28  |  5.6 KB  |  148 lines
  1. " Vim syntax file
  2. " Language:    PL/M
  3. " Maintainer:    Philippe Coulonges <cphil@cphil.net>
  4. " Last change:    2001 Jul 28
  5.  
  6. " For version 5.x: Clear all syntax items
  7. " For version 6.x: Quit when a syntax file was already loaded
  8. if version < 600
  9.   syntax clear
  10. elseif exists("b:current_syntax")
  11.   finish
  12. endif
  13.  
  14. " PL/M is a case insensitive language
  15. syn case ignore
  16.  
  17. syn keyword plmTodo contained    TODO FIXME XXX
  18.  
  19. " String
  20. syn region  plmString        start=+'+  end=+'+
  21.  
  22. syn match   plmOperator        "[@=\+\-\*\/\<\>]"
  23.  
  24. syn match   plmIdentifier    "\<[a-zA-Z_][a-zA-Z0-9_]*\>"
  25.  
  26. syn match   plmDelimiter    "[();,]"
  27.  
  28. syn region  plmPreProc        start="^\s*\$\s*" skip="\\$" end="$"
  29.  
  30. " FIXME : No Number support for floats, as I'm working on an embedded
  31. " project that doesn't use any.
  32. syn match   plmNumber        "-\=\<\d\+\>"
  33. syn match   plmNumber        "\<[0-9a-fA-F]*[hH]*\>"
  34.  
  35. " If you don't like tabs
  36. "syn match plmShowTab "\t"
  37. "syn match plmShowTabc "\t"
  38.  
  39. "when wanted, highlight trailing white space
  40. if exists("c_space_errors")
  41.   syn match    plmSpaceError    "\s*$"
  42.   syn match    plmSpaceError    " \+\t"me=e-1
  43. endif
  44.  
  45. "
  46.   " Use the same control variable as C language for I believe
  47.   " users will want the same behavior
  48. if exists("c_comment_strings")
  49.   " FIXME : don't work fine with c_comment_strings set,
  50.   "         which I don't care as I don't use
  51.  
  52.   " A comment can contain plmString, plmCharacter and plmNumber.
  53.   " But a "*/" inside a plmString in a plmComment DOES end the comment!  So we
  54.   " need to use a special type of plmString: plmCommentString, which also ends on
  55.   " "*/", and sees a "*" at the start of the line as comment again.
  56.   syntax match    plmCommentSkip    contained "^\s*\*\($\|\s\+\)"
  57.   syntax region plmCommentString    contained start=+"+ skip=+\\\\\|\\"+ end=+"+ end=+\*/+me=s-1 contains=plmSpecial,plmCommentSkip
  58.   syntax region plmComment2String    contained start=+"+ skip=+\\\\\|\\"+ end=+"+ end="$" contains=plmSpecial
  59.   syntax region plmComment    start="/\*" end="\*/" contains=plmTodo,plmCommentString,plmCharacter,plmNumber,plmFloat,plmSpaceError
  60.   syntax match  plmComment    "//.*" contains=plmTodo,plmComment2String,plmCharacter,plmNumber,plmSpaceError
  61. else
  62.   syn region    plmComment    start="/\*" end="\*/" contains=plmTodo,plmSpaceError
  63.   syn match    plmComment    "//.*" contains=plmTodo,plmSpaceError
  64. endif
  65.  
  66. syntax match    plmCommentError    "\*/"
  67.  
  68. syn keyword plmReserved    ADDRESS AND AT BASED BY BYTE CALL CASE
  69. syn keyword plmReserved DATA DECLARE DISABLE DO DWORD
  70. syn keyword plmReserved    ELSE ENABLE END EOF EXTERNAL
  71. syn keyword plmReserved GO GOTO HALT IF INITIAL INTEGER INTERRUPT
  72. syn keyword plmReserved LABEL LITERALLY MINUS MOD NOT OR
  73. syn keyword plmReserved PLUS POINTER PROCEDURE PUBLIC
  74. syn keyword plmReserved REAL REENTRANT RETURN SELECTOR STRUCTURE
  75. syn keyword plmReserved THEN TO WHILE WORD XOR
  76. syn keyword plm386Reserved CHARINT HWORD LONGINT OFFSET QWORD SHORTINT
  77.  
  78. syn keyword plmBuiltIn ABS ADJUSTRPL BLOCKINPUT BLOCKINWORD BLOCKOUTPUT
  79. syn keyword plmBuiltIn BLOCKOUTWORD BUILPTR CARRY CAUSEINTERRUPT CMPB
  80. syn keyword plmBuiltIn CMPW DEC DOUBLE FINDB FINDRB FINDRW FINDW FIX
  81. syn keyword plmBuiltIn FLAGS FLOAT GETREALERROR HIGH IABS INITREALMATHUNIT
  82. syn keyword plmBuiltIn INPUT INT INWORD LAST LOCKSET LENGTH LOW MOVB MOVE
  83. syn keyword plmBuiltIn MOVRB MOVRW MOVW NIL OUTPUT OUTWORD RESTOREREALSTATUS
  84. syn keyword plmBuiltIn ROL ROR SAL SAVEREALSTATUS SCL SCR SELECTOROF SETB
  85. syn keyword plmBuiltIn SETREALMODE SETW SHL SHR SIGN SIGNED SIZE SKIPB
  86. syn keyword plmBuiltIn SKIPRB SKIPRW SKIPW STACKBASE STACKPTR TIME SIZE
  87. syn keyword plmBuiltIn UNSIGN XLAT ZERO
  88. syn keyword plm386BuiltIn INTERRUPT SETINTERRUPT
  89. syn keyword plm286BuiltIn CLEARTASKSWITCHEDFLAG GETACCESSRIGHTS
  90. syn keyword plm286BuiltIn GETSEGMENTLIMIT LOCALTABLE MACHINESTATUS
  91. syn keyword plm286BuiltIn OFFSETOF PARITY RESTOREGLOBALTABLE
  92. syn keyword plm286BuiltIn RESTOREINTERRUPTTABLE SAVEGLOBALTABLE
  93. syn keyword plm286BuiltIn SAVEINTERRUPTTABLE SEGMENTREADABLE
  94. syn keyword plm286BuiltIn SEGMENTWRITABLE TASKREGISTER WAITFORINTERRUPT
  95. syn keyword plm386BuiltIn CONTROLREGISTER DEBUGREGISTER FINDHW
  96. syn keyword plm386BuiltIn FINDRHW INHWORD MOVBIT MOVRBIT MOVHW MOVRHW
  97. syn keyword plm386BuiltIn OUTHWORD SCANBIT SCANRBIT SETHW SHLD SHRD
  98. syn keyword plm386BuiltIn SKIPHW SKIPRHW TESTREGISTER
  99. syn keyword plm386w16BuiltIn BLOCKINDWORD BLOCKOUTDWORD CMPD FINDD
  100. syn keyword plm386w16BuiltIn FINDRD INDWORD MOVD MOVRD OUTDWORD
  101. syn keyword plm386w16BuiltIn SETD SKIPD SKIPRD
  102.  
  103. syn sync lines=50
  104.  
  105. " Define the default highlighting.
  106. " For version 5.7 and earlier: only when not done already
  107. " For version 5.8 and later: only when an item doesn't have highlighting yet
  108. if version >= 508 || !exists("did_plm_syntax_inits")
  109.   if version < 508
  110.     let did_plm_syntax_inits = 1
  111.     command -nargs=+ HiLink hi link <args>
  112.   else
  113.     command -nargs=+ HiLink hi def link <args>
  114.   endif
  115.  
  116.  " The default methods for highlighting.  Can be overridden later
  117. "  HiLink plmLabel            Label
  118. "  HiLink plmConditional        Conditional
  119. "  HiLink plmRepeat            Repeat
  120.   HiLink plmTodo            Todo
  121.   HiLink plmNumber            Number
  122.   HiLink plmOperator            Operator
  123.   HiLink plmDelimiter            Operator
  124.   "HiLink plmShowTab            Error
  125.   "HiLink plmShowTabc            Error
  126.   HiLink plmIdentifier            Identifier
  127.   HiLink plmBuiltIn            Statement
  128.   HiLink plm286BuiltIn            Statement
  129.   HiLink plm386BuiltIn            Statement
  130.   HiLink plm386w16BuiltIn        Statement
  131.   HiLink plmReserved            Statement
  132.   HiLink plm386Reserved            Statement
  133.   HiLink plmPreProc            PreProc
  134.   HiLink plmCommentError        plmError
  135.   HiLink plmCommentString        plmString
  136.   HiLink plmComment2String        plmString
  137.   HiLink plmCommentSkip            plmComment
  138.   HiLink plmString            String
  139.   HiLink plmComment            Comment
  140.  
  141.   delcommand HiLink
  142. endif
  143.  
  144. let b:current_syntax = "plm"
  145.  
  146. " vim: ts=8 sw=2
  147.  
  148.